home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / TISCH1 / MISCHE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-04-24  |  892 b   |  33 lines
  1. var f1,f2,f3,fout : file;
  2.     x,y : word;
  3.     h : word;
  4.     buf2 : array[0..319] of byte;
  5.     buf3 : array[0..319] of byte;
  6.     bufout : array[0..319] of byte;
  7.  
  8. begin
  9.   assign(f1,'t1-tab.clb');
  10.   assign(f2,'plasma.clb');
  11.   assign(f3,'plasma2.clb');
  12.   assign(fout,'t1-tab.org');
  13.   reset(f1,1);
  14.   reset(f2,1);
  15.   reset(f3,1);
  16.   rewrite(fout,1);
  17.   asm mov ax,13h; int 10h; end;
  18.   for y := 0 to 599 do begin
  19.     blockread(f1,bufout,sizeof(bufout));
  20.     blockread(f2,buf2,sizeof(buf2));
  21.     blockread(f3,buf3,sizeof(buf3));
  22.     if y > 199 then h := y mod 200 else h := y;
  23.     for x := 0 to 319 do if bufout[x] = 30 then bufout[x] := buf2[x];
  24.     for x := 0 to 319 do if bufout[x] = 34 then bufout[x] := buf3[x];
  25.  
  26.     for x := 0 to 319 do mem[$a000:h*320+x] := bufout[x];
  27.     blockwrite(fout,bufout,sizeof(bufout));
  28.   end;
  29.   close(f1);
  30.   close(f2);
  31.   close(f3);
  32.  
  33. end.